home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0643C.ZIP / DBCLOCK.PRG < prev    next >
Text File  |  1986-12-04  |  2KB  |  62 lines
  1. * PROGRAM WHICH WILL PLACE A TICKING DIGITAL CLOCK ON THE SCREEN === **
  2. *    TAKEN FROM ASHTON-TATE DOCUMENTATION FOR dBASE III PLUS ======= **
  3. *
  4. * ================= ENVIRONMENTAL SETUPS =========================== **
  5. * =================  THESE ARE OPTIONAL  =========================== **
  6. CLEA
  7. SET TALK OFF
  8. SET BELL OFF
  9. SET ESCA OFF
  10. * ============== BEGINNING OF DO WHILE LOOP ======================== **
  11. DO WHIL .T.
  12. * === CREATE YOUR MENU SCREEN, OR CALL IT IN FROM ANOTHER PROGRAM == **
  13. * === DO XXXXX   <PRG NAME> ======================================== **
  14. I=0
  15. * ============   START OF THE CLOCK LOOP  ========================== **
  16. DO WHILE i=0
  17. I=INKEY()
  18. * =========== THE @ SAY PLACES THE TIME WHERE YOU WANT IT. ========= **
  19. @ 3,65 SAY TIME()
  20. * ======== @ SAY IS THE LOCATION OF THE FOR THE MENU CHOICE ======== **
  21. @20,48 SAY ""
  22. * =========== I'VE USED CASE CHOICES OF A THRU Q AND X. ============ ****
  23. IF UPPE(CHR(I)) $"ABCDEQX"
  24. EXIT
  25. ENDI
  26. I=0
  27. ENDD
  28. * ============  END OF TICKING CLOCK LOOP ========================== **
  29. DO CASE
  30.       CASE CHR(i) $ "Aa"
  31.            DO ***
  32.            CLOSE DATA * == CLOSE DATA STOPS INADVERTANT LOOPING ==== **
  33.  
  34.      CASE CHR(i) $ "Bb"
  35.            DO ***
  36.            CLOSE DATA
  37.  
  38.      CASE CHR(i) $ "Cc"
  39.            DO ***
  40.            CLOSE DATA
  41.  
  42.      CASE CHR(i) $ "Dd"
  43.            DO ***
  44.            CLOSE DATA
  45.  
  46.      CASE CHR(i) $ "Ee"
  47.            CLEA
  48.            ?"RESERVED FOR FUTURE USE ........ "
  49.            WAIT "STRIKE ANY KEY TO RETURN TO MAIN MENU ....."
  50.            CLEA
  51. * ==    SINCE THE ESCAPE IS OFF, Q IS THE BACKDOOR  ================ **
  52.      CASE CHR(i) $"Qq"
  53.            CLEA
  54.            RETU
  55.  
  56. * ==     EXIT THE SYSTEM YOU'VE DEVELOPED ========================== **
  57.      CASE CHR(i) $ "Xx"
  58.            QUIT
  59.    ENDCASE
  60. ENDDO
  61. * ==     END OF DO WHILE .T. LOOP ================================== **
  62.